\START92\
\COMMENT=saved with Tokens89OCX v.1.00.0012
\NAME=scripts1\expscr1a.txt
\FILE=SCRIPTS1\EXPSCR1A.TXT
 :\(C)\"Jaime Meza www.eonicasys.com.co Script version 0.2"
C:ClrHome
C:setFold(scripts1)
C:splitsch() \(C)\"split LCD script:home"
C:DelVar eqs, eq1, eq2,answer, slnsX, slnX1, slnX2, slnY1, slnY2, test1, test2
C:DelVar x,y
C:\(C)\"solve the following system of equations"
C:\(C)\"and check their solutions."
C:{ y = x^2, y = 2*x + 3 }\->\eqs
C:eqs[1]\->\eq1
C:eqs[2]\->\eq2
C:(eq2|eq1)\->\answer
C:answer - (2*x + 3)\->\answer
C:factor(answer)\->\answer
C:{ part(left(answer),1)=0,part(left(answer),2)=0 }\->\answer
C:{ answer[1]+3, answer[2]-1 }\->\slnsX
C:slnsX[1]\->\slnX1
C:slnsX[2]\->\slnX2
C:(eqs[1]|slnX1)\->\slnY1
C:(eqs[1]|(slnX1 and slnY1))\->\test1
C:string(eqs[1])&"|("&string(slnX1)&" and "&string(slnY1)&") \>>\ "&string( test1 )
C:(eqs[1]|slnX2)\->\slnY2
C:(eqs[1]|(slnX2 and slnY2))\->\test2
C:string(eqs[1])&"|("&string(slnX2)&" and "&string(slnY2)&") \>>\ "&string( test2 )
C:DispHome:done
\STOP92\